home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v10n09.arc / FILETYPE.BAT < prev    next >
DOS Batch File  |  1991-04-16  |  1KB  |  53 lines
  1. @ECHO OFF
  2.  
  3. REM FILETYPE.BAT
  4.  
  5. :NO FILESPEC
  6. IF %1.==. GOTO END
  7.  
  8. :ZIP
  9. SET FT=ZIP
  10. FIND /N "PK" %1 |FIND "[1]" > FILETYP1.$$$
  11. COPY FILETYP1.$$$ FILETYPE.$$$ >NUL
  12. IF EXIST FILETYPE.$$$ GOTO END
  13.  
  14. :EXEC
  15. SET FT=EXE
  16. FIND /N "MZ" %1 |FIND "[1]" > FILETYP2.$$$
  17. COPY FILETYP2.$$$ FILETYPE.$$$ >NUL
  18. IF EXIST FILETYPE.$$$ GOTO END
  19.  
  20. :COM
  21. SET FT=COM
  22. FIND /N "Θ" %1 | FIND "[1]" > FILETYP3.$$$
  23. COPY FILETYP3.$$$ FILETYPE.$$$ >NUL
  24. IF EXIST FILETYPE.$$$ GOTO END
  25.  
  26. :WordPerfect
  27. SET FT=WordPerfect
  28. REM This v character is an ASCII 255
  29. FIND /N " FFWPC" %1 | FIND "[1]" > FILETYP4.$$$
  30. REM This ^ character is an ASCII 255
  31. COPY FILETYP4.$$$ FILETYPE.$$$ >NUL
  32. IF EXIST FILETYPE.$$$ GOTO END
  33.  
  34. :Device Driver
  35. SET FT=DeviceDriver
  36. REM The  vvvv four seeming blanks are all ASCII 255
  37. FIND /N " FF FF FF FF" %1 | FIND "[1]" > FILETYP5.$$$
  38. REM The  ^^^^ four seeming blanks are all ASCII 255
  39. COPY FILETYP5.$$$ FILETYPE.$$$ >NUL
  40. IF EXIST FILETYPE.$$$ GOTO END
  41.  
  42. SET FT=
  43. ECHO  FILE TYPE IS NOT EXE, COM, ZIP, WordPerfect, OR Device Driver.
  44. GOTO OUT
  45.  
  46. :END
  47. ECHO  FILE TYPE IS: %FT%
  48. SET FT=
  49.  
  50. :OUT
  51. FOR %%A IN (1 2 3 4 5 E) DO IF EXIST FILETYP%%A.$$$ DEL FILETYP%%A.$$$ >NUL
  52. :END
  53.